home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00200_Script_popUpMenu < prev    next >
Text File  |  1999-03-07  |  2KB  |  67 lines
  1. property thePopLocn, popSpriten, popNamen, mySpriten, faraway, fieldObjn
  2. property thehilitesprite, thePopLocna, topch, rightch
  3. global currentChartName, popbgSpriten
  4.  
  5. on new me
  6.   set mySpriten = the spriteNum of me
  7.   set popSpriten = mySpriten + 1
  8.   set popbgSpriten = mySpriten - 3
  9.   set rightch = the right of sprite (mySpriten - 2)
  10.   set topch = the bottom of sprite (mySpriten -2)
  11.   set thePopLocn = point(rightch, topch)
  12.   set thehilitesprite = mySpriten - 1
  13.   set popNamen = "mdl_field"
  14.   puppetSprite popSpriten, true  
  15.   set faraway = point(-1000, -1000)
  16.   set the loc of sprite popSpriten = faraway
  17.   
  18.   return me
  19. end
  20.  
  21. on register me, theObj
  22.   set fieldObjn = theObj
  23.   return thehilitesprite
  24. end 
  25.  
  26.  
  27. on mouseDown me
  28.   set the member of sprite popSpriten = member popNamen
  29.   set the member of sprite popbgSpriten = member popNamen
  30.   if currentchartname = "Range_maps" then
  31.   set ypos = topch - ( the linecount of member popNamen * the lineHeight of member popNamen) 
  32.   set thePopLocna = point(rightch, ypos)
  33.     set the loc of sprite popSpriten = thePopLocna
  34.     set the loc of sprite popbgSpriten = thePopLocna
  35.   else
  36.     set the loc of sprite popSpriten = thePopLocn
  37.     set the loc of sprite popbgSpriten = thePopLocn
  38.   end if
  39.   -- put "popped - " & thepoploc
  40.   updateStage
  41.   repeat while the stillDown
  42.     checkIfInside fieldObjn
  43.   end repeat
  44.   
  45.   set the loc of sprite popSpriten = faraway
  46.   set the loc of sprite popbgSpriten = faraway
  47.   
  48.   
  49.   set name = getPlaneName(fieldObjn)
  50.   if name = "" then 
  51.     nothing
  52.   else
  53.     disSpecs name
  54.   end if
  55.   
  56.   
  57.   set the loc of sprite popSpriten = faraway
  58.   set the loc of sprite popbgSpriten = faraway
  59.   
  60.   updateStage
  61. end
  62.  
  63. on mouseUp me
  64.   
  65.   nothing
  66. end 
  67.